home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / glass / glass.lha / GLASS / dtm / tmcode.ht < prev    next >
Text File  |  1991-06-18  |  742b  |  35 lines
  1. .. file: tmcode.ht
  2. /* file: tmcode.h
  3.  
  4.    template file:      tmcode.ht
  5.    datastructure file: ${dsfilename}
  6.    tm version:         $(tmvers) ($(tmdate))
  7.  */
  8. .insert dtmconfig.t
  9.  
  10. typedef double fnum;
  11. typedef int inum;
  12. typedef short int bool;
  13. #define fnumNIL doubleNIL
  14. #define inumNIL intNIL
  15. #define boolNIL (bool)0
  16.  
  17. /* recursive freeing routines for basic types */
  18. #define rfre_fnum(s)
  19. #define rfre_inum(s)
  20. #define rfre_bool(s)
  21.  
  22. /* rdup routines for basic types */
  23. #define rdup_inum(n) (n)
  24. #define rdup_fnum(n) (n)
  25. #define rdup_bool(b) (b)
  26. #define rdup_string(s) new_string(s)
  27.  
  28. #define fscan_fnum fscan_double
  29. #define fscan_inum fscan_int
  30. #define fprint_inum fprint_int
  31. #define fprint_fnum fprint_double
  32.  
  33.  
  34. .include $(libpath)$(pathsep)calu.ht
  35.